## Warning in graph_from_data_frame(co_auth_edge1 %>% dplyr::group_by(source, : In `d' `NA' ## elements were replaced with string "NA"